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Next Meeting 


Killarny Community Centre 
6260 Killarny st. Vanc. 
In this issue: 
Mar. 14 7 PM 

An Editors last Hurrah. 
Harvey bares his ROM 

Robots secret meeting exposed 
Other guys stuff, 

and Hob,s, too. 


ELECTION NIGHT 
COME AND VOTE!!! 


* HE He ök ok ök ək ək Ha ote ək 


ZXAppeal is a monthly 
newsletter put out by the 


Vancouver Sinclair Users Group. ACT əəə 

For more information on the ə å — 

club and ZXAppeal see the backcover. ር. ENIGMA. 2 
Cu LAD 


In order to ‘beat the deadline’ 
material for ZXAppeal may be 
send directly to the editor 
2308 Marine Drive 

West Vancouver. B.C. 

V7V 1K8. 

Marcio Vieira “the Pres.” 

can be reached at 984-8893 





Who.. What.. Where... 


EDITORS PREAMBLE. 
Well here it is, my last Hurrah. 
It is fitting that this is the 
March 786 issue, March '85 was my 
first one. 

It has been fun, you bet, and I 
do hope the new editor allows me 
to publish a small piece every 
once in a while just to keep in 
practice. 

Reasons? Well I went and brought 
this OTHER computer and I will be 
busy with it for a while, which 
reminds me. 


I have one of only three Aerco 


diskdrive interfaces in 
Vancouver. 

I have also 3 years worth of 
accumulated softvare, vith 
manuals, on disk. The interface 
plus drive cost me $ 500.-. I 
will look at any serious offer on 


the drive and software package. I 
have talked to one interested 
party sofar, if you are 
interested you know where to 
reach me. 


Note by the vay that I am not 
selling my computer or my 64K 
RAMpack. It is not my intention 
to get out of the ZX world. 


Sometime in the future I vill rig 
my nev computer and the ZX 
together and have some fun. 

Oh by the vay if you buy the 
drive unit and wish to run the 
much celebrated R.DOS on it you 
must have, at the least, memory 
ın the 8 to 12K area. 


Lets get on with it. The first 
thing one noticed, upon entering 
the Feb. 14 meeting, vas, not 
one, but TWO QL,s. Ve vere 
looking forvard to a demo of the 
vaunted QL netvork capability but 
alas the softvare to make it tick 
vas left at home. As it vas, 
Harvey Taylor vas able to shov us 
his Mandelbrot set graphics 
program. 

Yes you may vell ask. 

All I can tell you is 
Creating graphics using this 
Mandelbrot thing entails some 
heavy, heavy math and it is the 
hottest thing in computer 
qJraphics right now. 


this. 


(2) 


The reason for this is the 
amazing graphics capabilities of 
the nev generation of micro 


computers. 

To give you some idea of the math 
involved in draving a Mandelbrot 
display. It took Harvey,s 
machinelanguage program 6 hours 
to fill the screen vith a pattern 
which looks for all the world 
like a negative photograph of the 
sun in a active sunspot phase. 

I knov of a computer that can do 
a 320 by 200 display in half an 
hour mind you, but I promised not 
to rub it in. 


The treasurers report is nova 
definite maybe for the next 
nevsletter. The meeting got a 
verbal report vhich mainly told 
us that the balance had shrunk a 
little between 785 and 186 but 
the nev dues structure should 
take care of this. 


Well. This is it, March is 
elections month. The very air is 
charged with the excitement of it 
all. Who will be in charge of the 
Vancouver Sinclair Users Group 
this time next month. What power 
structure will “put its indelible 
stamp on our club, whose election 
machine will carry its triumphant 
drivers to the very pinnacle of 
VSUG power. 


Come in and vote on March l4th. 


Also bring your nominations and 
or volunteer yourself. Yes you 
2068/spectrum and QL owners that 
means you, too. 

Ken Abramson claims that his 
robot parlez francais. Sure Ken 
snickeur snickeur. Why don't you 


bring Bert in, next meeting, and 
let him parlez for himself? 

By the way the only confirmed 
volunteer for a VSUG office is 
Ian Mclean as librarian and it 
vas decided at the meeting that, 
for nov, only P.D. softvare 
should made available. Bring some 
March 14th. 


Cont Paqe 12 


PLAYING WITH ELECTRICITY {#x+2} by Harvey Taylor 


This month 1 am presenting a simple little Basic program 
that takes you into the heart of the QL ROM. Superbasic is 
extensible. You can add machine language Procedures and 
Functions which act just. like they were in ROM. The way the 
machine handles this is to create a list of the Functions & 
Procedures and update it. Because the machine is multitasking 
we have to find the Basic Job, (which is always Job#@.) The 


pointer to this area of memory is kept in the System Variable 


SV_Basic. 
SV BASIC -> BASIC JOB HEADER ($68 BYTES) 
$900 BV START POINTER BASE 
$10 d DV PFBAZ PROGRAM FILE 
$14 BV PFEP TOP OF PROG F!LE 
$15 BV NBAS NAME TABLE 
$1C BV NTP TOP NAME TABLE 
$20 BV NLA NAMF LIST 
$24 BV NLP TOP NAME LIST 
$28 BV_VVRAS VARIABLE VALUES 
$2C BV VVP TOP VAR. VALUES 
$100 ይሃ END TOP OF BASIC VARS. 
Once ve know how this section is set up we can write a 


simple basic program which will pull these names,vajues & 
addresses from the tables. 1 particular, the basie listing 
given will print the name ይየ each Procedure, Function and its 
address in MOM, the name of each variable and its value, if 
it has one. Note that. the size of the Basic area changes 
while the program runs & so it sometimes fenerates farbare. 
What. happens is that the name will come out as two or three 
lines of garbage &/or other names. One way around this would 
be to rewrite the procedures as functions, so that cach time 
the values of offsets used are dynamically updated rather 
than what they were when the program firt started running. 1 
believe the classic cop out is, this is left as an exercise 
for the student. 

NOTE: Adrian Dickens incorrectly says (Page 330) that 
SV basic is 8 pointer to the base of the Basic stack. Also 
while involved in other work 1 noticed that he has(page 329) 
RI SUB as TOS-NOS, when it is NOS-TOS. This is the kind of 
thing that gives you grey hairs if you don’t catch it. 

If this should happen into the hands of any QL’er out of 
Vancouver, why don’t. you drop me a line. I’d like to hear 


from you. 


Cont 
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VANCOUVER ROBOT CLUB 





February 13th., 1986. 
ላ 


Our next mecting vill be on March 3rd., 1986 at 630 PM. 
Normal location, mecting open to anyone, admission free. 
Phone 681 9531 during the day for Information, ask for Al. 








At our last meeting on February 3rd., 1986. Ken demonstrated 
his Turle designed Robot, vhich has a expanded 2K (Fat Bert) 

and it gave qulte a talk and a govd demonstration of its features. 
Ken İs using İt at his school as a teaching ald. Well done 

Ken. 





Kar] has his I/R sensors working along with a nice program 
that has slight pauses then goes forward, If it encounters a 
object [t says " excuse me" and moves a 45 degree angle or so 
then continues to move forvard cte., In all this ts a nice 


feature and really enhances herti. 


Karls night school Robot class will now commence around 
March or April, you should phone VVI for further information. 


Bob and myself have been working on a small keyboard to be 
mounted on Bert and we hope to have It working, and to offer 
İt to you all soon. 


A fev of us have had quite a few requests to show off our 
Robots, would any other Bert owners want to 101ክ፻ us ? 
Please let us know. 





Karl fs working on all kind of new things for Robots, so 
| why not come to the next meet and find out whats new. 


PS: If anyone has general type questions feel free to 
home me during the day (681 9531 ) 


AL. 
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FASSHORD PROTECTION FOR THE 10868 
From T-S HORIZONS 818 Es Mather bhite 


It's fun to have I on “Gü Program. This i 


ሠ 
ሠ 
n 
pa 
= 
3 
«fr 








1 PORKE 1658 189 

2 SAVE "PROGRAM HAME" 

3 FRINT "РАЗЗЫОЕОТ" 

4 IHPUT I$ : 

5 IF I$0> "YOUR FRSSHORD" THEN STi 

HEH the d oram will be denied. NEAT 


TIMEX TIFS 
By 
Chuck Dawson 


This iz intended to be a collection of useful tips and 
techniques either not mentioned in the manual or not fulls 
exPlained. I welcome any TIMEX TIFS that sou mas have discovered 
and would like to share with others. After all, that is why ህድ 
form user organizations - to share knowledge and Pick uF ideas 
fram others. 

xd xXx 
CUESTION: In the back "“Frogramming Your TS 1000", it says you 
must name a Program with a REM statement. then enter the command 
SAVE and the name in quotes. TS USER says include the name in 3 
REM etatement and later in the Program include a line with SAVE 
and the name. I thought REM statements were ignored, so how can 
thes have ans effect in the matter? 


ANSWER: ‘You are right! The computer 1990res all FEM statements. 
Thes are there for sou. It is Possible, with the TS 1000, to 
SAVE a Program and then forget the name sou used. That is the 
reason for the FEM which shows the name ዕኖ the Frosram. If: on 
the other hand, you want the Program to auto run after loading. 
then «ou include the SAVE "NAME" as a line in the Program. In 
that case, sou can always look at the listing ta get the name 50 
the REM is really not needed. However. some People like the name 
near the beuinnine of a Program so thes don't have to look for 
it. This is Probably the reason it was suagested you add a REM 
near the beainnine of the listing. 
xkxxxxxxxxx 

Here is a tip for TS 2068 users. Include the following as 
the firet line of a Program: 1 REM SAVE "name" LINE 10. This 
shows the name and also makes for an eass way to save the 
Program to auto run at line 18 Cor whatever 2. Just Pull the REM 
line don to the bottom of the screen using EDIT (CAPS SHIFT 1», 
delete the FEM and line number, and Press ENTER. The Frog9ram 
will save. and it will verify Froperly. This is wot the case 
when usina a SAVE command down in the Froeram somewhere. To 
enter təc keawords on the same line, sou enter the second 
keunard (SAVE), then move the cursor to the left using the CAPS 
SHIFT 5. and ture the first keyword (REM). 

#፳#ቶፋችችፋፋፋፋ 

QUEST ICH: I have several Programs which use mans PRINT 
statements thrauvahout teo send data to the screen. 15 there a vas 
I can send the data to the 2648 Printer without rewriting all 


AES. 


the PRINT statement: to LFFINT'=7 I have a TS 26 


ANSWER: Yes, it iust so harPens there is. This is Possible 
because of the vers flexible way the 2068 operating system iz 
designed. Before runnine the Froeram, do this: OFEN € 2, "P". 
This sends all data normally destined for the screen to the 
printer buffer. You can return things to normal bs entering: 
CLOSE # 2. I hore this is useful to sou. 
ቹፋፏፏፏፋፏፏፋፋፏ 

CUESTION: Hou can I Print a message on the bottom line of the 
2068 screen without usina INPUT? 


ANSHER: Just add the sumbols "$1;" after the FRINT. For examPle, 
PRINT 41; "Hi there!" will Print on the bottom Line. You must add 
a PAUSE A if it is near the end of the Program, or the "Hi 
there!" will be overuritten bu the "OK" showing that the Program 
has successfully been confleted. i 
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ADAPTED FROM 51 GAME 


FOR THE Т/5 10090,1200 


PROGRAM WILL ALSO RUN 


2063 
Bs110,10! 
Б5(1)="ИИ125455672И" 
Esiziz"IXBXBXHÁXMIC 
ES (3) -"2EHXHEXHXMHX2” 
Bs(43-"3XNXüXNUXHO" 
ES(S)="4% M HM Ha" 
6s(6)="S B NB as" 
Bs(7) -"GBOMHOHOHOG” 
B$ (8) =" 700208037" 
ይፍ (9) =" 8ОДСДОЖОЗ - 
ES (101 ="ጄ122452575ቹ” 
HS =5 
C3=3 
55:12,12) 
A=1 Tü 10 
ርኗ=5‹፡) 
B=1 то 10 
SeiA, 81 2ር8 (2 TO ) (1) 
8 
n 
ND>.S THEN GO TO 183 
58፪(5,5) ="X" 
sita 2122. ” 
UB 1120 
T 
3212 THEM PRINT “I 4 
T AT 15.0, "FROM?" 
IT MOVE 
ar ифалар" TRBMOUET: 
A=INT (MOVE/LA) 
S=MOVE-10*A 
T MOVE 
MATIAS 
C=INT iMOUE^/19! 
C=MOUE-108C 
ES (A-21<>1 ÜR ABS 
20 Tü 160 
$iC«1! (D+1) "XU THEN 
S$giA+1) (B41! =" 
S5(0+1) (O41) ="0 
ЈВ 1130 
5232 THEN PRINT “YOu 
as="0" 
WB 10090 
L=1 THEN GÜ To 200 
መቋ” ^ 
UB 1000 
55 (El (F) =" 
SiE+G: (Елмә =" О" THEN 
Ss (E+G) (F+H) = 
О 159 


Rules for Playing 


(6) 


ON You move only diag3enly.no multis 
=12 jumps. 
You capture an opponent by Land- 
ing on top. 
In this version you move first. 
This can be changed too let the 
computer go first,I prefer the 
human move first. 
In this version you have 12 move 
5 to win the gamé this can be ch 
angad to.anu amount of moves you 
prefer. 
In order to make moves „numbers 
from Left to bottom or your firs 
1 coordnates,your second entry w 
itl be the square your moving to 
o, lexample(from-52-to051). 
I nope uou enjoy tnis game of ch 
eckers. 
Rick Shope 
1020 LET E=2 
1091 LET F=2 
4222 LET GzÓO 
1003 LET H=0Q 
oa 1010 LET FL=Q 
v 1020 IF SSiE!])iF)«»"X" THEN GO Tü 
1102 
1040 IF =5(፳+13፤ (F+113A5 OR 55(2- 
1) (2Е-11=АвФ THEN LET G=1 
TO 1050 IF 5ኗ(፳+2) (ቻዎ+2) 288 OR 55(Е- 
4] (F +1) =A$ THEN LET H=1 
1050 IF S$(E-1) (F+1)=AS OR 55(Е- 
1) (F-11=A$%$ THEN LET 2=-1 
1070 IF S5$(E+1) (F-1)=A$5 OR 55(2Е- 
11 (F-1:=AS THEN LET H=-1 
1030 IF G<>0 AND H<>Q THEN LET F 
1.21 : 
1085 IF FL=1 THEN RETURN 
18-9 1100 LET E=E+1 
ve bigl IF ር: 2. ርን THEN LET F=F+1 
LE 1102 IF E>10 THEN LET Е=г 
1110 IF F:10 THEN RETURN 
1130 Ga TO 1610 
1128 STae 
+ 1150 FRINT AT 2,0; 
Vi 1132 FOR A=1 Tü 10 
113S PRINT 
1140 FOR 6=1 TO 10 
1150 NET E 
1155 NEXT, A 
1150 FEINT 
- 2155 PRINT 
LE 1170 PRINT "ME: "; CS,” You: 
HS 
1130 RETUEN 
3000 SAVE “BATTLE 


TIMEX TIPS 
Ey Chuck Dawson 


QUESTIOH: What is the STRØ function used for? 
ANSWER: The argument (the exFrezsion following the keyword) of 


STRS must be a (number or 8 variable that stands for a number 
¿like X5. The STRS takes that number and chansez it to 3 string 





SEOROEOK^S and assi9ns it to a string variable (like $ It can no be 

E122:56728 sliced or maniPulated as a string. This would be a good way to 
look for the decimal and line it up for Proper Printind. 

ME: ዌ vou e QUESTION: Hou do you use the Commands "IN" and "OUT"? 


DE ANSWER: These are usually esed in machine code but Sinclair 
FROM? added them to the keyboard as Part of the BASIC. Thes are used 
to send and receive data on one of the 256 "FORTS" which are 

awailable. Usually, these Ports are wired to external devices 

like MODEMs and Printers. As an example, the RERCO Printer 

interface is wired to Port 127. Data can be sent from a Program 

to the Printer by the command GUT 127, data, To keer things 

running smoothlu, we follow with an IN 127. This can take the 

form LET B = IN 127 or if sou don't need the IN data, simPly 

FANOOMIZE IN 127. Try the following Program without loading the 


Printer driver Proaram. Line 6@ sende the carriage return. 
12 INPUT LINE AS 

20 FOR I 1 TO LEN AS 

20 LET A = CODE R$CI? 

48 OUT 127,A : PANDOMIZE IH 127 

SA НЕХТ I 
ба OUT 127.13: PANDOMIZE IN 127 
та GO TO 16 
ormalls. «e would need to check a "buss line" before sending 
another letter, but BASIC is so slow compared to M/C that this 
is not needed in this case. 


QUESTION: Can I delete a variable once it has been assigned? 


AHSHEF: Cf course. CLEAR deletes all the variables, but I assume 
vou meant just one variable at a time. This can be done with 
variables that mere created by the DIMension function. Let's say 
«ou entered DIM X(35^. Later vou vant to delete the X variable 
and recover the memory space. Just enter DIM 009, This results 
in an error message because you cannot DIMension for zero but 
before the comPuter Gets around to checkina for that, it hes 
alreada miPed out the old X variable. Within a Program, you 
could handle the error with an OH ERR CONTINUE before the DIM 
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From Page 2 


If possible, make up a list of 
all the softvare you are able to 
contribute to the library, this 
vay Ian can check for duplication 
of effort and nip it in the butt 
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Load 
20568 is 5 while the nipping is good. 
Parts, th 
Program ሠ The question of repair support 
CNN PME was brought up again and again I 
R-HEA must point at D Ross. He has 
thout io access to all the parts. 
4 con Apparently parts for the Spectrum 
25. | are also available but hov vell 
fiiprogram type (Betic.,code.ana they fit in the 2068 I don't 
Eg — LE: know. Maybe parts from the Silver 
ei! ame EU - RA Lora Avenger can be used, also, there 
(3]Leng th With å Without varis- must be parts from Timex still 
. 27.” RUR nc. floating around North America, 
d C LU-multi LE 3 1 1 
(፳5)5ህ1ፎኗ Ori maybe Bob Lussier can find out. 
Tupe in If you ever have any trouble with 
it before RU you 2X81 keyboard talk to Ken 
fo LLOW ins Ала Abramson he has got the thing 
will List co pru d d 
i ncounte i 
42 F Anyhow folks this vas, for the 
last time. 
1 REM RA 2066 Paul (the editor) Ruiterman. 





2 CLEAR 5 z 
5 BORDER @: PAPER @: BRIGHT I 
INK 5: CLS 

































10 GÜ SUB 1222 = 
58 CLS : GO SUB 500: BEEF .21 172 nəş 
10: PRINT AT 18.9, INK 0; PAPER 183 THER 
5: FLASH 1; "START CASSETTE" 123 THEN 
50 RANDOMIZE USR 32000 Ga 5 
55 BEEP .Ø1,45 SER be ር ረው 
58 CLS : GO SUB 500 ያው RSE 
70 LET ix-32258 ድዳ ይስ ove 
80 LET type=PEEK ix 175 PI TE 
96 PRINT INVERSE 1'/i"Program:" "13585" par — 
AND tyupesBieit Numeric Array: A met JER 
ND typesii¢ ("String Array: " AND — aR 
type=21+1"Bytes Block: " AND type ey = i 
=31; ራን 
100 PRINT INVERSE 0:7 ";: FOR n 2257 S a. need os 
siket TO 1x410: PRINT CHAS PEEK o Os nu ss B. ህከስ 
n;: NEXT n ÓBTNT 25” 
110 PRINT INVERSE 3' "+1"Pros.+u p Sasal *'SazNOÓN- 
ariable " AND type=Ø:+("Code " R "sia RET 2200 
ND tupel;" Lengih:", 1000 REM å UE 
20 PRINT INVERSE @:" “¡PEER (i 2558 DƏT 5 426 425 17,17 
x*11)! +256+PEEK (ix+12) Www 2505 153.186.2668, 
130 IF type=1 OR type=2 THE 22557 BA e ри 
INT INVERSE 1:"Uariable:":: 5224. fee En 
T INVERSE 8;" ";CHR$ (PEEK 1030 FOR =o 45050. READ 
41 -32-644 (PEER fix+141 :192 a. BORE : UM 2850 READ 
=2): GO TO 175-" 1030 RET > 
RINT INVERS 39913 = AR" |} TNE 1 
AND type =O) rev “lec er, ә ə UE 
ነ type=3! * 4: 1 Lot 





፦ 
tə 
— 


( 


100 REMark sys_var Dec/85 by H. Taylor 
129 layout 

149 printer 

160 SV_BASE= HEX(* 28200’ ) 


182 HDR=1Ø4 

592. PRINT 'SYSTEM VARIABLES : ”;HEXS(SV BASE, 24) 
220° BAS_AREA=PEEK_L(SV_BASE + 16) 

24Ø PRINT 'BASIC AREA BASE: *;HEX$(BAS AREA, 24) 
26Ø.REMark 

280 BAS END-PEEK L(SV BASE + 20) 

3ØØ PRINT ” END: ';HEX$(BAS END, 24) 
328 PNTR BAS=BAS AREA + HDR 

342 PRINT *POINTERS BASE: ” ;HEX$(PNTR_BAS, 24) 
362 REMark 


380 BV TOP-PNTR.BAS + 256 

409 PRINT 'BASIC VARIABLES END: ” 5HEX$(BV. TOP, 24) 
420 REMark ; 

440 PROG FILE-PNTR BAS+ 16 

460 OFFSET-PEEK L(PROG FILE) 

482 PF START-PNTR BAS « OFFSET 

500 PRINTN “PROGRAM FILE BASE: ';HEXS(PF STALT,24) 
529 REMark 

549. FILE END=PNTR BAS - 22 

568 OFFSET=PEEK L(FILE END) 

582 PF END-PNTR BAS + OFFSET 

6ØØ. PRINT ” END. ';HEX$(PF END, 24) 
62Ø REMark 

64Ø NAM TABL=PNTR. BAS + 24 

66Ø OFFSET=PEEK L(NAM TABL) 

689 NT START=PNTR BAS« OFFSET 

700 PRINT 'NAME TABLE BASE: ”;HEX$(NT START, 24) 
72Ø REMark ; 

749 NAMTABL END=PNTR BAS + 28 

760 OFFSET-PEEK L(NAMTABL END) 

780 NT_END=PNTR_ BAS + OFFSET 

820 PRINT ” END: ';HEX$(NT END, 24) 
820 REMark 

849 NAM LIST=PNTR BAS+ 32 

860 OFFSET-PEEK L(NAM LIST) 

889 NL START-PNTR BAS« OFFSET 

909 PRINT 'NAME LIST BASE: ”;HEXS(NL START, 24) 
92% REMark 

942 NAMLIST END-PNTR BAS + 36 

960 OFFSET=PEEK L(NAMLIST END) 

98Ø NL END-PNTR BAS + OFFSET 

1009 PRINT ' END: ';HEX$(NLLEND, 24) 
1220 REMark 

1240 VAR VALUES-PNTR BAS« 40 

1280 OFFSET=PEEK L(VAR VALUES) 

1989 vv start-PNTR BAS« OFFSET 

1190 PRINT ' VARIABLE VALUES BASE: ';HEX$(vv.start,24) 
1129 REMark 

1149 VARVAL END-PNTR BAS + 44 

1189 OFFSET=PEEK L(VARVAL END) 

1180 VV END-PNTR BAS + OFFSET 


1209 PRINT ' END: ';HEX$(VV END,24) 
1220 test$-'this is a test example” 
1240 REMark 


1260 PRINTSO,”HIT ANY KEY TO CONTINUE’ : PAUSE : С1,580 
1285 SHOW TABLE 1 


1328 IF pre: 

1329 CLS : CLSsO : FRINTRO, "Hit any key when Printer ready' 
1349 PAUSE : SHOW_TABLE 3 : | 

1362 ELSE 

1389 STOP 


1422 END IF (13) 





1420 
1449 
1469 
1489 
1500 
1529 
1549 
1562 
1580 
1609 
1629 
1649 
1660 
1689 
1702 
1720 
1749 
1769 
1780 


1899 


1820 
1840 


1869. 


1880 
1999 
1820 


1940: 


DEFine PROCedure layout 
BORDER #9, 8, 8 
WINDOW #5, 515, 2916, ወ9,ወ : BORDER #5, 5,6 
WINDOW $1,512,216,0,0 : BORDER €1,5,0 
PAPER 82,0 : INK #2,4 
PAPER Ø : INK 6 
PAPER*Ø,Ø : INK#@,2 : MODE 4 
END DEFine layout 
-DEFine PROCedure SHOW_TABLE (chan) 
LOCal addr,fin,off,ch 
addr=NT START 
fin=NT END 
ch=chan 
PRINT&ch, N 
FOR a=addr TO fin STEP 8 
type=PEEK W(a) 
PRINT#ch, *Code:”;HEXS(type, 16); 
SELect ON type 
=1 : a$=’Unset string” 
=2 : a$-'Unset fp. #’ 
=3 : a$="Unset Integer’ 
=257: a$=’Str.expr.’ 
=258: a$z”FP expr.” 
=259: a$c” Integer expr.’ 
=513: a$-'String' 
=514: a$=’F. Point Number” 
=515: a$-'Integer' 
=768: a$=’Substring’ 
=769: a$="String array” 
=77Ø: a$="FP array” 
=771: a$=" Integer array? 
=1Ø24: a$-'Super Basic Proc’ 
=1026: a$=’Super Basic Proc’ 
21281: a$="SupBas Str Func’ 
=1282: a$-'SupBas FP Func’ 
=1283: a$-'SupBas Int Func’ 
=1538: a$="Rep Loop Index’ 
=1794: a$-'For Loop Index’ 
=2Ø48: a$-'Mach Code Proc’ 


22304: a$-'Mach Code Func’ 
=REMAINDER : a$=’Type error’ 
END SELect 
PRINT&ch, '.'; a$;' 753 
off=PEEK W(a+2) 
flag=Ø 
SELect ON off 2 
=-1 : сф=” Мо Name *: flag=1 


= 0 TO 32767 : c$-'Name Pntr 
=-2 TO -32767 : c$=’Copy í 
END SELect 
PRINT€ch, TO 28 
PRINT#ch, c$:HEX$(off,16), 
nam addr=NL START + off 
Nam len=PEEK(nam addr; 
PRINT#ch, TO 42 
IF flag : GO TO 2680 
FOR cz1 TO Nam len 
dat= PEEK(nam addr *c) 
SELect ON dat 
=32 TO 126 : PRINT#ch, CHR$(dat): 


-KEMAINDER : PRINTHch. HEXS$(dat,8);” 
፡ END SELect 
END FOR c 


(14) 


2682 flag=Ø 

2799 SELect ON type 

272Ø =1 TO 3,513 TO 515,769 TO 771, 1538, 1794 : b$="Value pntr” 

2740 =257 TO 259,768 : b$="RI Stk pner’ 

2769 =1Ø24,1Ø26,1281 TO 1282 ፡ b$="Line Number” :rlag-t 
2780 =2Ø48, 2504 b$="Abs Addr’ > fiag-2 
2800 END SELect 

2829 PRINTSch, TO 60 

2842 PRINT&ch, b$; 

2860: val=PEEK L(a+4) 

2889 val flag=Ø 

2900 SELect ON flag 

2929 =Ø:IF val=-1 

2949 d$=’ Undefined’ 

2969 ELSE val addr= =vv Start + val 

2989 d$=val 

3000 VS=HEXS(PEEK_L(val_addr),32) & HEXS(PEEK L(val adår+4), 32) 
3220 val flag=1 

3949 END IF 

3069 =f: d$=PEEK W(a+4) 

3282 =2: d$-HEX$(val,2 IF val>786432 INK 2 

3199 -=REMAINDER : d$=’Flag Error” 

3129 END SELect 

3149 PRINT#ch, TO 70 

3189 PRINT#ch, d$ 

3180 IF val flag : 

3209 PRINTSch, "Value Table shows : '; 

3229 SELect = type 

3242 =513 str len=PEEK Wi(val addr) 

3260 FOR ezval -adér+2 TO val addr+str len«1 : PRINT#ch, CHRS (PEE 
K(e)); 

3280 PRINTSch, 

3309 7514 : PRINTüch,v$,” = *;: conv. fp 

3329 =515 : PRINT#ch, HEXS(FEEK W(val PO 16) 

3349 REMAINDER : PRINTttch, v$ 

3369. END SELsct: 

3382 END IF 

3409 INK 6 

3420 END FOR a 


3449 END DEFine SHOW TABLE 
3460 DEFine PROCedure printer 


modi fy as required 
N'Else hit any key 


3480 pre 

3509 REMark sets up a printer at 9620 Baud on SERİhr : 

3529 PRINT42,'If you wish printer outrut toggle «CTRL><P>, 

354Ø a$zINKEY$(-1) e=CODE( at) CLSaQ 

3569 IF c=16 : 

3580 pr=1 

36ØØ OPENS3,serihr 

3619 PRINTS0, "Printer channel opened. SERihr at 9600 Baud” 
3629 BAUD 9609 

3642 END IF 


3662 END DEFine printer 
3680 DEFine PROCedure conv _fp( rps) 


3700.  LOCal fp, expon, man 

3728 expon=HEX(fp$(2 TO 4)) 

3742 man-HEX(fp$(5 TO 12 )) 

3769 fp = man * (2^(expon- 2048 -31)) 
3780 PRINT fp 


3800 END DEFine 


(15) 


— 
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"82b TEA 
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The Vancouver Sinclair Users Group has been 
in existence since 1982. We are a support 
group for the owners and users of the, 
Microace, ZX 80, ZX 81, T/S 1000, T/S 1500, 
Spectrum, Spectrum+ T/S 2066 and QL 
computers. 

Our 1985 executive consists of, 


President Marcio Vieira 
V.P/Coordinator Erik Sakara 
Treasurer ARBie Fru 


Our Membership dues are only $15.-/year and 
may be send tc our Treasurer. 

ARBie Fru 

7220 Blundel1 Rd 

Richmond. B.C. 

VEY 134. 

Membership includes a subscription to 
ZXAppeal our monthly newsletter. zXAppeal 
accepts advertising, our =PREPAID= rates 
are, 

$ 40.- per page. 

$ 20.- per 1/2 page. 

$ 10.- per 1/4 page. 

We charge one dollar extra for billing. 
zXAppeal has a print run of 100 copies per 
month and is distributed to our members 
together vith approx. 75 other Sinclair 
usergroups throughout North America who 
receive a photocopy, via The Netvork. 

Our North American netvork coordinator is, 
Rod Humphreys, 

2006 Highviev Place, 

Port Moody B.C. V3H 1N5 


Our International netvork coordinator is, 
Bob Lussier, 

7937 Elvell Street, 

Burnaby B.C. V5E 1M3 


